home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / super win.bas < prev    next >
BASIC Source File  |  1988-05-22  |  397b  |  18 lines
  1. 1     scnclr
  2. 5     screen 0, 5, 0
  3. 10    window #1, 100,10,140,100, "WINDOW #1"
  4. 15    cmd #1
  5. 16    scnclr
  6. 20    circle (5,5), 0, 1
  7. 25    x = x+3
  8. 30    y = y+3
  9. 35    s = s+2
  10. 40    circle (x,y), s, 1
  11. 45    if x = 60 then sleep 5*10^6 : scnclr: goto 55
  12. 50    goto 25
  13. 55    circle (50,50), 0, 1
  14. 60    s1 = s1+1
  15. 65    circle (50,50), s1, 1
  16. 70    if s1 = 50 then sleep 5*10^6 :scnclr : end
  17. 75    goto 60
  18.